home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue28 / drmeter / DRMETER.ZIP / DEMO / UNIT4.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1997-09-30  |  1.4 KB  |  83 lines
  1. unit Unit4;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, drMeter;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     drMeter2: TdrMeter;
  13.     Button1: TButton;
  14.     StaticText1: TStaticText;
  15.     DRMeter1: TDRMeter;
  16.     DRMeter3: TDRMeter;
  17.     Timer1: TTimer;
  18.     procedure Button1Click(Sender: TObject);
  19.     procedure FormClick(Sender: TObject);
  20.     procedure Timer1Timer(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. var
  28.   Form1: TForm1;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. var
  35.   i,j,k : integer;
  36.  
  37. const
  38.   decI : boolean = false;
  39.   decJ : boolean = false;
  40.   decK : boolean = false;
  41.  
  42. procedure TForm1.Button1Click(Sender: TObject);
  43. begin
  44.   close;
  45. end;
  46.  
  47. procedure TForm1.FormClick(Sender: TObject);
  48. begin
  49.   i := 0;
  50.   j := 25;
  51.   k := 180;
  52.  
  53.   Timer1.enabled := not Timer1.enabled;
  54. end;
  55.  
  56. procedure TForm1.Timer1Timer(Sender: TObject);
  57. begin
  58.   drMeter1.position := i;
  59.   drMeter2.position := j;
  60.   drMeter3.position := k;
  61.  
  62.   if decI
  63.     then dec(i)
  64.     else inc(i);
  65.  
  66.   if decJ
  67.     then dec(J)
  68.     else inc(J);
  69.  
  70.   if decK
  71.     then dec(K)
  72.     else inc(K);
  73.  
  74.   if (i > 100) or (i <= 0)
  75.     then decI := not decI;
  76.   if (j > 100) or (j <= 0)
  77.     then decJ := not decJ;
  78.   if (k > 200) or (k < 100)
  79.     then decK := not decK;
  80. end;
  81.  
  82. end.
  83.